www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminSysTools\D_ajax_scanth.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>









<%

dir_set="../../"



Server.ScriptTimeout=9999999


session.timeout=600


%>


<!--#include file=../../inc/conn.asp-->






<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->



<!--#include file=../../inc/ND_class_function.asp-->


<%

set filea=new Cls_FSO
set fileb=new DosAsp 

per=1
ended=0
status1="查找中..."
aaaaaw12221="系"&"统"&"文"&"件"&"已"&"被"&"破"&"坏，请"&"与"&"本"&"系"&"统"&"作"&"者"&"联"&"系"

if request("pos")="" then

set a11=new DosAsp





conn.execute("delete from ND_templates_error_label_list_cache")




Const JET_3X = 4

Function CompactDB(dbPath, boolIs97)

'-------------------new code1--------------------
'重要
on error resume next
'-------------------new code1--------------------


Dim fso, Engine, strDBPath
strDBPath = left(dbPath,instrrev(DBPath,""))


Set fso = CreateObject(fssoo_nd_var_str_x_customx)



'-------------------new code2--------------------
if fso.FileExists(strDBPath & "temp.mdb") then
fso.DeleteFile(strDBPath & "temp.mdb")
end if
'-------------------new code2--------------------




If fso.FileExists(dbPath) Then
Set Engine = CreateObject("JRO.JetEngine")

If boolIs97 = "True" Then
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _
& "Jet OLEDB:Engine Type=" & JET_3X
Else
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
End If
fso.CopyFile strDBPath & "temp.mdb",dbpath
fso.DeleteFile(strDBPath & "temp.mdb")
Set fso = nothing
Set Engine = nothing
CompactDB = "你的数据库 " & dbpath & " 已经压缩完毕" & vbCrLf
Else
CompactDB = "The database name or path has not been found. Try Again" & vbCrLf
End If

End Function



    If IsObject(conn) Then
        conn.Close
        Set conn = Nothing
    End If

call CompactDB(Server.MapPath(dir_set&main_data_mdb), "-1")



call OpenConn()





sql=""
else

sql=" where id>"&request("pos")

end if


%>



<%

set rs1=server.CreateObject("adodb.recordset")
       
rs1.open "select * from ND_templates_list_cache "&sql&" order by id asc",conn,1,1

execute("aaerweee1e11=aaa"&"aaw1"&"2221")

for iccchj=1 to 1
if rs1.eof then

ended=1
exit for

end if

now_pos1=rs1("id")


path1=rs1("template_full_path_filename")

if instr(1,path1,"{",1)=0 and instr(1,path1,"}",1)=0  then



set rs112=server.CreateObject("adodb.recordset")
       
rs112.open "select * from ND_templates_folder_reg where templates_folder_path_name='"&request("t")&"'",conn,1,1


if rs112.eof then

rs112.close

rs112.open "select * from ND_templates_folder_reg_qiye where templates_folder_path_name='"&request("t")&"'",conn,1,1


end if


if rs112.eof then


 status1="找不到模板"



end if






ppath="templates/"&rs112("templates_folder_path_name")&"/"

ppath2=rs112("templates_folder_path_name")&"/"&path1

status2="0"







if rs1("is_template_or_other")="1" then

if rs1("is_too_big_template")="0" then

cont11=loadfile("../../"&ppath&path1)

complie_dir=""
cpml_is_cms=1

eeeskey=session(CacheTempx&"skeyyyqa")
eeetkey=session(CacheTempx&"tkeyyyqa")
okkkkeddd=session(CacheTempx&"okkkkeddd")


session(CacheTempx&"skeyyyqa")=eeeskey
session(CacheTempx&"tkeyyyqa")=eeetkey
session(CacheTempx&"okkkkeddd")=okkkkeddd



if okkkkeddd="" then

response.end
end if


if instr(1,trim(cont11),trim(eeeskey),1)<>0 then

status1="<font color=#ff0000>找到一个文件,已成功替换其模板内容...</font>"
status2=ppath&path1
status3=rs112("templates_folder_path_name")
status4=rs112("id")
status5=rs1("template_full_path_filename")&"/"





cont11=replace(cont11,trim(eeeskey),eeetkey,1,-1,1)

if request("cpath")<>"" then 

'以下为了支持无限级目录
call createfile(request("cpath")&ppath2,"1111",true)
call deletefile(request("cpath")&ppath2)

call filea.CopyAFile(server.mappath("../../"&ppath&path1),server.mappath(request("cpath")&ppath2))

call savefile(cont11,"../../"&ppath&path1)


end if


end if


else


status1="非模板文件，跳过..."

status2="0"


end if

else





status1="文件太大，跳过..."

status2="0"



end if




end if




rs1.movenext



next

rs1.close
set rs1=nothing





response.ContentType="text/xml"

response.write "<?xml   version=""1.0""   encoding=""gb2312""?>"

response.write "<aaaa>"
response.write "<affff><![CDATA["&ended
response.write "]]></affff><affff2><![CDATA["&now_pos1&"]]></affff2><affff5><![CDATA["&left((path1),235)&"]]></affff5><affff6><![CDATA["&status1&"]]></affff6><affff7><![CDATA["&status2&"]]></affff7><affff8><![CDATA["&status3&"]]></affff8><affff9><![CDATA["&status4&"]]></affff9><affff10><![CDATA["&status5&"]]></affff10></aaaa>"




















%>